open(BATCH_HANDLE,"> tmp.bat");
print(BATCH_HANDLE "\@echo off\n");
print(BATCH_HANDLE "\"../Debug/dse.exe\" c_pool APP INIT $ARGV[0] > ");
print(BATCH_HANDLE "$ARGV[0]");
print(BATCH_HANDLE ".tmp");
close(BATCH_HANDLE);
@ARGUMENTS=("cmd.exe","/C", "tmp.bat");
system(@ARGUMENTS) == 0 or die "Failed to execute temporary batch";

open(UNITTEST_HANDLE,"< $ARGV[0].result");
open(RESULT_HANDLE  ,"< $ARGV[0].tmp");
local $/=undef;
$UNITTEST_STRING=<UNITTEST_HANDLE>;
$RESULT_STRING=<RESULT_HANDLE>;
if ($UNITTEST_STRING eq $RESULT_STRING) {
    print("$ARGV[0]: SUCCESS!\n");
} else {
    print("$ARGV[0]: Unit-test failed...!\n");
}